(defun FACTORIAL (NUM)
	(if (<= NUM 1)
		(progn NUM)
		(setq NUM (* NUM (FACTORIAL (- NUM 1))))))
(print "!" NUM "=" (FACTORIAL (promt "NUMBER" NUM)) "\n\r")
